home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt85mar.lbr / STUMP2.PAS < prev    next >
Pascal/Delphi Source File  |  1985-09-15  |  512b  |  32 lines
  1.  
  2. Listing 2: BYTE disk read benchmark in Turbo Pascal.
  3.  
  4. { copywrited 1984 by Laine Stump.  For private, non-commercial use only }
  5.  
  6. PROGRAM read (output, infile);
  7.  
  8. CONST
  9.     nr = 512;
  10.  
  11. VAR
  12.     infile : text;
  13.  
  14.     b : string[128];
  15.     i : integer;
  16.  
  17. begin
  18. assign (infile, 'b:test');
  19. reset (infile);
  20. FOR i := 1 to nr DO
  21.     read (infile, b);
  22. close (infile);
  23. writeln ('done');
  24. end. { read }
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.